home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / eo.dxr / 00034.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  249 b   |  10 lines
  1. global gCurrentLabel, gVoicePlaying, gGizmo
  2.  
  3. on exitFrame
  4.   if gVoicePlaying and not soundBusy(2) then
  5.     set gVoicePlaying to 0
  6.     setCompassPict(gGizmo, #on, member (gCurrentLabel & "_LenTxt") of castLib "Internal")
  7.   end if
  8.   go(the frame)
  9. end
  10.